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ABSTRACT 

The  EA-6B  Mission  Planning  and  Route  Optimization  Program 
was  created  for  use  with  the  WANG  2200  computer  system  by 
aircrewmen  deployed  on  board  aircraft  carriers.  It  is  an 
interactive  computer  program  designed  to  increase  the  effec- 
tiveness and  efficiency  of  the  mission  planning  process, 
while  reducing  the  time  involved  in  this  evolution.  These 
goals  are  accomplished  through  the  use  of  two  schemes.  First 
is  an  automation  of  the  clerical  planning  tasks  of  retrieval, 
listing,  and  plotting  of  information.  Second  is  an  optimiza- 
tion routine  designed  to  aid  in  the  selection  of  the  optimum 
EA-6B  route  of  flight,  when  in  a Modified  Escort  role. 
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I.,  INTRODUCTION 


Many  exercises  or  problems  that  have  previously  been 
tediously  solved  by  man  directly  may  now  be  dealt  with  by 
small,  readily  available,  economically  efficient  computing 
devices.  Airborne  electronic  warfare  mission  planning  is 
this  type  of  exercise.  In  recent  years  this  already  time- 
consuming  and  exacting  process  has  become  increasingly  complex 
due  to  the  high  degree  of  sophistication  of  electronic  warfare 
weapons  systems  and  the  threats  they  must  deal  with.  Powerful 
state  of  the  art  airborne  computers  are  used  with  these  weapons 
systems  to  aid  the  Electronic  Warfare  Officer  in  performing 
his  mission.  However,  until  this  time,  no  automated  interface 
has  been  utilized  to  correlate  the  vast  amounts  of  data  that 
must  be  considered  in  the  mission  planning  process  if  effective 
weapons  system  utilization  is  to  be  achieved. 

Electronic  warfare  mission  planning  lends  itself  readily 
to  solution  by  interactive  computer  programming.  Initial 
stages  of  mission  planning  involve  the  collection  of  informa- 
tion from  a variety  of  sources,  including  TACMANUALS,  Elec- 
tronic Orders  of  Battle  (EOB) , Kilting  lists,  radar  handbooks, 
etc.  From  this  information,  charts  are  marked  showing  EOB, 
route  of  flight,  and  emitter  detection  envelopes.  Detailed 
data  lists  and  time  logs  must  also  be  made  before  the  operator 
can  effectively  determine,  through  the  use  of  cumbersome  jam- 
ming effectiveness  equations  of  dubious  applicability  and 
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personal  expertise,  the  optimum  course  of  action  for  the 
mission.  This  procedure  routinely  can  take  many  hours  to 
effectively  reach  a solution.  However,  due  to  the  nature 
of  strike  planning,  the  luxury  of  these  extended  time  periods 
is  not  always  available  and  corners  have  to  be  cut.  The 
inefficiency  in  this  process  is  obvious,  and  can,  under  cer- 
tain circumstances,  be  unaffordable. 

Any  or  all  of  these  steps  in  the  electronic  warfare  mission 
planning  process  can  be  greatly  simplified  through  the  use  of 
a combination  of  current  computer  hardware  and  interactive 
software.  Depending  on  the  degree  of  automation,  it  is  con- 
ceivable that  mission  planning  time  could  be  reduced  by  a 
factor  of  ten  with  more  accurate  results  than  possible  by 


II.  BACKGROUND 


Initial  research  into  the  automation  by  computer  of  the 
electronic  warfare  mission  planning  process  was  completed  in 
June  1977  [1,  2]  . Each  of  the  papers  resulting  from  this 
research  dealt  with  a particular  section  or  facet  of  the 
mission  planning  process. 

In  Beaudet  [1],  computer  software  was  developed  which 
automates  many  of  the  initial  processes  of  electronic  warfare 
mission  planning.  In  his  development,  Beaudet  has  utilized  a 
series  of  operator- computer  interfaces  which,  while  greatly 
helping  to  eliminate  a substantial  portion  of  the  mission 
planning  drudgery,  still  keeps  the  planner  integrally  involved 
in  and  aware  of  every  step  of  the  planning  process.  This 
technique  of  interactive  programming  is  completely  essential 
in  any  mission  planning  program. 

Specifically,  the  "EA-6B  Mission  Planning  Program”  [1]  is 
designed  to  accomplish  the  following: 

1)  Based  on  entered  latitudes  and  longitudes,  plot  a 
strike  route  of  flight, 

2)  Produce  a complete  printout  of  the  area  EOB  based  on 
information  from  step  1, 

3)  Visually  present  various  emitter  detection  envelopes 
and  the  route  of  flight  based  on  steps  1 and  2, 

4)  Compute  and  print  out  hard  copies  of  the  complete 
navigation  solution  and  threat  emitter  reaction 
information,  including  minute-by-minute  range  and 
bearing  to  emitters  within  detection  range. 
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This  simulation  was  accomplished  utilizing  the  following 
hardware : 

1)  IBM  360/67  general  purpose  computer, 

2)  TEKTRONIX  4012  graphics  terminal  (30/12  system), 

3)  TEKTRONIX  4610  hard  copy  printing  unit. 

FORTRAN  computer  language  was  used  in  this  program,  which 
consisted  of  approximately  800  steps  and  10k  of  computer 
memory . 

It  is  important  to  notice  that  this  simulation  does  not 
completely  address  the  mission  planning  problem.  That  is, 
while  much  of  the  initial  collating,  sorting,  and  plotting 
work  has  been  automated,  the  operator  still  must  make  the 
crucial  decisions  to  determine  the  flight  route  providing 
the  most  effective  jamming.  While  it  is  true  that  in  many 
cases  the  optimum  EA-6B  route  will  be  obvious  from  informa- 
tion presented  by  this  program,  when  the  solution  is  not 
obvious  large  amounts  of  time  and  effort,  not  always  avail- 
able, are  required  to  make  the  proper  decisions. 

In  Ref.  [2],  Watts  deals  with  the  problem  of  determining 
an  optimum  route  for  a jamming  aircraft.  In  this  paper,  he 
presupposes  a Modified  Escort  route  for  the  jamming  aircraft 
and  bases  his  simulation  on  this  supposition.  In  this  type 
of  mission,  the  electronic  warfare  aircraft  accompanies  the 
strike  group  only  in  areas  of  low  exposure  to  enemy  threats. 
This  type  of  route,  in  general,  increases  the  survivability 
of  the  Electronic  Countermeasures  (ECM)  aircraft,  but  decreases 
the  jamming  effectiveness  when  compared  with  a direct  accompan- 
iment role. 
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Watts'  simulation  determines  an  optimum  route  by  calcu- 
lating the  point  where  the  strike  group  exposure  to  threats 
is  g "jatest.  For  this  position  and  time,  an  optimum  position 
for  Cue  jammer  platform  is  computed  within  certain  constraints. 
Next,  it  computes  a route  to  and  from  this  point,  which  in 
theory  approaches  the  absolute  optimum  route.  In  actuality, 
the  simulation  calculates  several  optimum  routes,  each  with 
its  own  measure  of  effectiveness  (MOE) , and  presents  them  to 
the  operator  allowing  him  to  make  a choice  based  on  his  own 
expertise  and  the  MOE's. 

It  is  obvious  that  these  two  theses,  which  have  provided 
some  of  the  background  for  this  research,  have  attacked  the 
problem  of  airborne  electronic  warfare  mission  planning  from 
two  diverse  approaches.  Reference  [1]  has  sought  to  automate 
much  of  the  plotting,  listing,  and  collating  of  information 
necessary  in  the  mission  planning  process.  Reference  [2]  has 
tried  to  eliminate  the  difficult  and  time  consuming  processes 
required  in  determining  an  optimum  ECM  route  to  fly  when 
protecting  a strike  group. 

It  would  appear  that  the  logical  solution  to  the  mission 
planning  quagmire  lies  somewhere  in  a compromise  between  or 
combination  of  the  two  approaches.  This  is  the  premise  from 
which  this  research  was  begun. 
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Ill,  DESIGN  CONSIDERATIONS 


The  primary  objective  in  the  creation  of  this  program  was 
to  create  an  effective  automation  of  the  mission  planning 
process,  utilizing  existing  assets  on  board  U.S.  aircraft 
carriers.  Accuracy,  speed,  simplicity,  cost  effectiveness, 
and  direct  user  interface  were  the  primary  design  goals.  The 
limitations  of  existing  hardware  assets  played  a significant 
role  in  many  facets  of  the  design.  The  final  mission  planning 
system  developed  exhibits  the  influence  of  these  factors. 

In  the  development  of  the  program,  it  was  paramount  that, 
to  as  great  an  extent  as  possible,  existing  equipment  on  board 
U.S.  carriers  be  used.  Most  computer  systems  on  board  the 
carriers  are  either  inaccessible  to  EA- 6B  squadron  aircrews 
or  presently  so  overworked  that  usage  would  be  impractical. 
However,  all  carriers  are  now  or  soon  will  be  equipped  with 
a WANG  2200  computer  system.  Included  in  this,  on  board  system 
are  the  following: 

1)  Central  processing  unit  (CPU)  of  16k  capacity, 

2)  Video  display  unit, 

3)  Flexible  disk  auxiliary  storage  unit  utilizing 
250k  disks, 

4)  High  speed  hard  copy  printing  unit. 

This  equipment  is  located  where  easy  access  and  use  by 
EA-6B  aircrew  personnel  is  possible.  All  software  in  this 
mission  planning  and  route  optimization  program  has  been  de- 
signed for  use  on  this  system. 
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In  its  design,  the  goals  of  this  program  were  divided 
into  two  distinct  areas: 

1)  Automation  of  the  clerical  functions  of  planning 
(i.e.,  sorting,  plotting,  listing,  etc.) 

2)  Optimization  of  the  jamming  problem. 

Initially,  the  first  objective  was  to  have  been  accom- 
plished by  simply  converting  Beaudet's  ’'EA-6B  Mission  Planning 
Program"  [1]  to  BASIC  computer  language,  for  use  with  the  WANG 
system.  However,  due  to  the  increased  size  of  this  program 
when  converted  to  BASIC,  and  the  limited  core  size  of  the  WANG 
machine,  it  was  necessary  to  completely  restructure  this 
program  for  efficient  use  with  the  WANG  system. 

The  resulting  program  is  one  which  utilizes  the  WANG 
flexible  disk  system  to  "page"  itself  in  and  out  of  the  com- 
puter's core  memory.  Specifically,  what  was  done  was  to  di- 
vide the  program  into  several  logical  sections.  The  first  of 
these  sections  consisted  of  information  that  must  remain  within 
the  central  processing  unit  (CPU)  at  all  times,  such  as  vari- 
able definitions  and  constants  used  throughout  the  program. 
Initially,  only  this  first  section  of  programming  is  loaded 
from  the  disk  into  computer  memory.  As  the  program  progresses, 
the  various  other  sections  are  moved  in  and  out  of  core  memory, 
one  at  a time,  as  they  are  called  for. 

This  process  of  overlaying  parts  of  the  program  on  top  of 
a section  of  permanent  core  resident  code  effectively  increases 
the  apparent  size  of  the  WANG  CPU  memory  from  16k  to  whatever 
size  is  necessary.  The  penalty  for  this  is  obviously  an 
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increase  in  the  running  time  of  the  program  caused  by  the 
additional  time  required  to  bring  information  in  from  the 
flexible  disk  system  more  than  once.  However,  this  fully 
automatic  process,  due  to  the  nature  of  the  disk  system,  is 
a very  rapid  one.  The  increase  in  running  time  is  minimal. 

The  sequence  of  events  and  overall  results  of  this  section 
of  programming  closely  resemble  those  of  [1].  To  this  section 
of  this  program,  however,  was  added  an  optimization  of  the 
jamming  problem  for  the  Modified  Escort  mission  profile. 

Computer  optimization  of  the  jamming  problem  consists  of 
finding  the  optimum  route  to  fly  to  maximize  jamming  protec- 
tion for  a strike  group.  The  three  types  of  strike  support 
missions  that  EA-6B  aircraft  generally  fly  are  Standoff, 

Escort,  and  Modified  Escort.  Of  these,  the  Modified  Escort 

i 

I 

mission  profile  is  best  suited  for  a route  optimization. 

In  view  of  the  core  size  problems  already  encountered 
with  the  automation  of  clerical  tasks,  it  was  obvious  that 
the  type  of  optimization  done  in  the  "Electronic  Warfare  Sup- 
port Jamming  Pre-Mission  Route  Optimization"  [2]  was  not 
possible.  Not  only  is  the  program  quite  large  (10k  in  FORTRAN), 
but,  because  of  the  large  number  of  calculations  it  performs, 
run  time  on  the  WANG  system  would  be  excessive.  However,  [2] 
provided  ideas  for  a simplified  optimization  routine. 

The  one  overriding  design  consideration  for  the  development 
of  the  optimization  was  simplicity.  The  reasons  for  this  are 
two-fold.  First  is  the  obvious  problem  of  a small  core-sized 
computer  with  an  already  large  mission  planning  program. 
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The  second  reason  is  not  so  obvious  and  concerns  itself  with 
the  parameters  for  optimization. 

Any  optimization  is  based  on  some  measure  of  effectiveness 
(MOE)  as  the  governing  parameter.  The  MOE  for  jamming  has, 
for  many  years,  been  the  jamming  to  signal  (J/S)  equation. 
However,  with  the  advent  of  the  highly  sophisticated  jamming 
modes  of  the  EA-6B,  the  J/S  ratio  has  been  shown  to  be  not  a 
totally  valid  MOE.  With  this  in  mind,  an  optimization  based 
on  a rigorous  application  of  the  J/S  ratio  was  deemed  to  be 
inappropriate . 

What  was  developed  was  a simple  optimization  based  on  the 
presence  of  jamming  aircraft  in  the  threat  radar  beam  width, 
distance  from  the  threat  radar,  strike  group  position,  and 
EA-6B  possible  positions.  It  is  not  stipulated  that  this 
scheme  produces  the  definitive  optimum  route  for  all  situa- 
tions involving  all  types  of  jamming.  Instead,  what  is 
accomplished  is  the  presentation  of  a computer  designed  route 
that  approaches  the  optimum  and  indicates  to  the  operator 
another  possible  solution  to  his  problem. 

In  view  of  the  storage  limitations  of  the  WANG  system, 
the  mission  planning  and  route  optimization  program  requires 
that  certain  information  be  retrieved  from  one  of  the  ship's 
main  computers.  The  task  of  developing  an  interface  between 
the  ship's  computer  and  the  WANG  system  has  been  assigned  to 
the  Navy  Ocean  Systems  Center  (NOSC)  in  San  Diego.  This 
interface,  currently  under  development,  is  essential  to  this 
program. 
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Contained  in  the  ship's  main  computer  is  current  EOB 

• 

information.  This  information,  pinpointing  the  location  of  ; 

i 

■ 

various  emitters,  is  sorted  with  the  EA-6B  Parameter  Library  j 

1 

s 

file,  contained  on  the  WANG  flexible  disk.  The  result  of  this  ! 

3 

sort  is  the  EOB  listing,  containing  the  following  information:  | 

1 

1)  Site  number,  * 

i 

2)  Latitude  and  longitude  of  each  emitter,  1 

3)  Threat  type,  e.g..  Spoon  Rest  or  Barlock, 

i 

4)  Frequency  band  and  frequency  range  of  emitter, 

I 

5)  Emitter  function,  e.g.,  Early  Warning  or  Missile  Control, 

6)  PRF  range,  I 

I 

7)  Automatic  and  manual  jamming  codes  for  use  against  ' 

the  emitter, 

8)  Percent  of  frequency  band  of  the  emitter. 

The  retrieval  of  information  from  the  ship's  computer  is 
designed  to  be  a fast  and  simple  one.  Very  little  ship's 
computer  CPU  time  is  used  in  this  exchange.  ^ 

! 
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IV.  SYSTEM  DESCRIPTION 


EA-6B  Mission  Planning  and  Route  Optimization  Program  uses 
the  WANG  2200  computer  system  interfaced  with  the  TEKTRONIX 
4012  graphics  terminal.  It  was  written  in  WANG  BASIC  computer 
language  and,  along  with  associated  data,  was  stored  on  a 250k  j 

capacity  flexible  disk.  I 

The  program  is  divided  into  four  distinct  sections,  based 
on  mission  profile.  The  missions  available  are  Escort,  Modified 
Escort,  Standoff,  and  Modified  Escort  with  route  optimization. 

The  operator  initiates  the  planning  process  by  selecting  one 
of  the  four  profiles  for  consideration.  Selection  of  the 
profile  with  route  optimization  results  in  slightly  different 
user  options  and  procedures  from  the  other  three  mission.  The 
three  similar  missions  will  be  discussed  first. 

Following  selection  of  the  mission,  the  operator  enters 
either  the  strike  group  route  of  flight,  if  known,  or  simply 
the  target  latitude  and  longitude.  At  this  point,  using  the 
interface  with  the  ship's  main  computer,  a printout  of  the 
local  area  EOB  is  presented  to  the  planner.  Subsequently,  J 

the  strike  route  of  flight,  location  of  emitters,  and  detec-  ^ 

tion  ranges  of  emitters  are  displayed  on  the  graphics  unit. 

With  this  visual  display,  the  optimum  jamming  route  of  flight 
may  be  apparent  to  the  planner,  or  it  may  be  obscured  by  a 
complex  strike  route  and  dense  emitter  environment.  In  the 
latter  case,  the  operator  at  this  time  may  select  the  route 


17 


optimization  section  of  the  program  for  computer  assistance 
in  selecting  the  jamming  route. 

Assuming  the  planner  continues  with  his  originally  selected 
mission,  he  may  now  enter  his  EA- 6B  route  of  flight  or  change 
his  strike  route  to  view  a different  EOB.  If  he  is  unsure 
about  the  best  strike  route,  he  may  wish  to  have  the  computer 
plot  several  different  strike  routes  with  associated  EOB' s on 
a transparent  overlay.  This  overlay  may  then  be  attached  to 
the  appropriate  chart  for  presentation  to  the  strike  leader 
for  his  consideration. 

Once  the  planner  has  narrowed  his  options  down  to  his  final 
strike  and  EA- 6B  routes,  he  may  obtain  a mission  chart  from  the 
WANG  drum  plotter  containing  the  following  information: 

1)  Strike  group  route, 

2)  EA-6B  route, 

3)  Location  of  EOB  emitters, 

4)  Emitter  detection  envelopes. 

He  may  also  obtain  from  the  printer  a complete  navigation  solu- 
tion and  Time  Scenario  for  use  during  his  mission.  The  Time 
Scenario  contains  information  required  by  the  EA-6B  Electronic 
Countermeasures  Officer  to  effectively  conduct  the  mission. 
Included  are  a minute-by-minute  listing  of  emitters  within 
detection  range  of  the  strike  group  and  various  Tactical  Jam- 
ming System  (TJS)  related  information  for  countering  these 
threats . 

With  any  of  the  first  three  missions,  the  operator  has  the 
option  of  selecting  and  visually  considering  as  many  combinations 


I 
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of  routes  and  missions  as  he  desires.  However,  he  alone  must 
make  all  significant  planning  decisions,  resulting  in  the 
final  strike  route  and/or  EA-6B  route.  The  success  of  his 
choices  is  based  completely  on  his  expertise  and  insight, 
without  computer  assistance  in  finding  the  optimum  route. 

If  the  Modified  Escort  mission  with  route  optimization 
is  chosen,  a strike  route  of  flight  must  be  entered  before 
the  optimization  routine  is  started.  In  this  mission,  the 
EA-6B  accompanies  the  strike  group  until  it  enters  a terminal 
threat  weapon's  envelope.  At  this  point,  jamming  effective- 
ness calculations  begin  and  determine  the  direction  of  flight 
for  the  EA-6B. 

With  the  EA-6B  position  fixed  on  the  terminal  threat 
weapon's  envelope,  a minute-by-minute  direction  of  flight  is 
determined  based  on  two  factors: 

1)  The  angle  formed  by  the  EA-6B,  strike  group,  and  the 
radar,  the  optimum  angle  being  zero  degrees  or  a 
straight  line  from  the  radar  to  the  strike  group  to 
the  EA-6B. 

2)  A radar  weighting  factor  assigned  on  the  basis  of 
radar  type,  associated  weapons  system,  and  vulner- 
ability to  EA-6B  jamming. 

These  two  parameters  are  computed  and  summed  for  radars  within 
detection  range  to  determine  a measure  of  effectiveness  (MOE) 
given  by: 

MOE  - E r . 0. 2 
i-1  ^ ^ 

Where:  r^^  * radar  weighting  factor 

0^  offset  angle 

n ■ total  number  of  radars  considered 
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Each  0^^  term  has  a maximum  default  value  determined  by 
the  radar  beam  width  and  maximum  angle  offset  for  effective 
EA-6B  jamming.  Once  a term  reaches  its  maximum  value,  it  is 
eliminated  from  the  summation. 

The  MOE  summations  are  made  for  several  possible  EA-6B 
positions,  which  are  constrained  by  the  flight  path  and  air- 
craft airspeed.  The  position  with  the  minimum  summation  value 
is  chosen  for  the  optimum  jamming  position.  This  process  is 
then  repeated  for  the  next  minute  with  a new  strike  group 
position  and  new  EA-6B  positions.  The  final  result  is  the 
optimum  route  based  on  MOE  calculations  and  route  constraints. 

The  operator  at  this  point  is  presented  with  a visual 
display  of  the  optimized  EA-6B  route,  strike  group  route, 
emitter  locations,  and  emitter  detection  envelopes.  He  may 
elect,  based  on  this  presentation,  to  alter  his  strike  route, 
default  to  another  mission  section  of  the  program,  or  continue 
with  the  computed  route.  If  he  continues,  as  in  the  other 
program  sections,  he  will  obtain  the  complete  EA-6B  and  strike 
group  navigation  solutions.  Time  Scenario,  and  plotted  chart 
for  the  mission.  ' 

From  this  description,  it  is  evident  that  regardless  of 
which  mission  is  chosen,  the  mission  planner  is  still  the  key 
element  in  the  process.  His  imagination,  training,  and  exper- 
ience must  be  interactively  used  with  this  computer  program  if 
an  effective  solution  to  the  mission  planning  problem  is  to  be 
achieved. 
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V,  USER'S  GUIDE  TO  THE  PROGRAM 

A.  INTRODUCTION 

The  following  section  contains  a detailed  explanation  of 
how  to  use  this  mission  planning  system  and  the  equipment 
associated  with  it.  It  is  envisioned  that  the  User's  Guide 
will  accompany  the  program  to  the  Fleet,  facilitating  its 
implement at  ion. 

B.  STARTING  THE  PROGRAM 

Using  the  EA-6B  Mission  Planning  and  Route  Optimization 
Program  is  not  a difficult  task.  By  simply  following  a few 
simple  procedures  and  answering  a few  questions,  many  hours 
of  tedious  planning  can  be  eliminated.  Detailed  information 
on  procedures  for  using  the  WANG  computer  system  can  be  found 
in  [3  and  4] . 

The  initial  step  in  using  this'  system  is  to  load  the  pro- 
gram and  the  flexible  disk  containing  the  program,  as  in  [4]. 

To  load  section  one  of  the  program  from  the  disk  into  the  core 
memory,  the  operator  must  type  the  command,  LOAD  DC  F "MAINl,'' 
and  then  push  the  RETURN (EXEC)  button.  This  is  the  only  load 
command  necessary  in  the  entire  program.  All  other  sections 
of  the  program  are  automatically  loaded  from  the  disk  as  they 
are  required. 

The  program  is  started  by  pushing  the  RETURN(EXEC)  button 
one  more  time.  The  program  will  then  ask  a series  of  questions 


from  which  it  determines  how  to  assist  the  operator  in  the 
mission  planning  process.  All  questions  are  answered  by  merely 
typing  in  the  appropriate  number  for  the  desired  response  and 
pushing  the  RETURN (EXEC)  button. 

Under  normal  circumstances,  the  planner  will  have  a par- 
ticular mission  and  strike  route  to  consider  when  he  starts 
planning.  For  ease  in  the  explanation  of  the  program  flow, 
it  will  be  assumed  that  this  is  the  case.  It  is,  however, 
possible  to  select  these  items  after  viewing  the  local  EOB 
based  on  the  mission's  starting  point  and  target. 

C.  ESCORT  MISSION 

The  Escort  mission  profile  is  one  in  which  the  EA-6B 
accompanies  the  strike  group  for  the  entire  route  of  flight. 

This  mission  will  be  discussed  first. 

After  the  selection  of  the  mission,  the  operator  is  asked 
to  enter  the  strike  group  route  of  flight,  including  number  of 
turnpoints,  latitude  and  longitude  of  each  turnpoint,  airspeed 
on  each  leg,  and  local  magnetic  variation.  The  system  then 
calculates  a geographic  window  around  this  route  which  is  passed 
to  the  ship's  main  computer.  Based  on  this  window,  the  ship's 
computer  returns  positions  and  types  of  local  threat  emitters. 
This  information  is  then  sorted  with  the  Emitter  Parameter 


Library  contained  on  the  flexible  disk.  The  result  is  the  EOB 
listing  pertinent  to  the  mission.  At  this  time  the  operator 
has  the  option  to  add  additional  information  or  sites  to  this 
EOB,  or  ignore  it  completely  and  build  his  own  EOB. 
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Once  the  EOB  listing  is  completed,  the  planner  has  the 
option  of  obtaining  a hard  copy  of  the  complete  listing  or 
of  only  a portion  of  the  listing  based  on  class  of  emitter, 

1. e.,  EW/ACQ  or  Terminal  Threat  radars.  The  listing  contains 
various  radar  parameters  that  are  of  particular  significance 
to  EA-6B  personnel,  as  seen  in  Fig.  1. 

The  operator  is  now  asked  several  questions  related  to 
the  visual  display  of  the  EOB  and  route  information.  Through 
these  questions  he  has  the  option  of  filtering  the  classes  of 
emitters  to  be  plotted  on  his  display  or  chart.  Once  this 
decision  has  been  made,  the  route  of  flight,  emitter  locations, 
and  emitter  detection  envelopes  are  plotted,  as  seen  in  Figs. 

2,  3,  4.  At  this  point,  the  operator  may  elect  to  have  the 
plotter  transfer  this  information  onto  a navigation  chart  for 
use  during  the  mission.  This  process  will  normally  take 
several  minutes. 

The  planner  is  now  given  the  opportunity  to  obtain  a 
navigation  solution  and  a Time  Scenario.  The  navigation  solu- 
tion (Fig.  8)  contains  the  following  information: 

1)  Distance  of  each  leg, 

2)  Time  to  fly  each  leg, 

3)  True  and  magnetic  headings  to  each  turnpoint, 

4)  True  airspeed  for  each  leg, 

5)  Total  time, 

6)  Total  distance, 

1)  Latitude  and  longitude  of  turnpoints. 
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The  operator  is  given  the  opportunity  to  obtain  a hard  copy 
of  this  listing  from  the  printer.  If  he  does  not  want  a nav- 
igation solution,  he  may  consider  a different  route  or  mission 
at  this  time. 

The  Time  Scenario,  as  discussed  in  the  System  Description, 
is  a minute-by-minute  listing  of  pertinent  EA-6B  jamming  infor- 
mation. The  operator  is  now  asked  if  he  wants  a listing  of 
this  Time  Scenario.  If  he  does,  the  system  calculates  and 
prints  the  following  information  for  each  minute  of  the  mission 
(see  Fig . 9)  : 

1)  Time, 

2)  Present  position, 

3)  Emitters  within  detection  range, 

4)  Correlation  number  to  the  EOB  listing, 

5)  Range  and  bearing  to  the  emitter, 

6)  Automatic  and  degraded  systems  jamming  modes  to  use, 

7)  Relative  percent  of  Onboard  System  frequency  band  of 
the  emitter. 

The  information  listed  here  must  be  at  the  disposal  of 
EA-6B  aircrew  personnel  during  a mission  for  immediate  reaction 
to  threat  radars.  Previously,  this  information  was  pains- 
takingly extracted  from  a variety  of  sources  before  each  mission. 
Only  with  this  detailed  information  available  during  a mission 
can  the  EA-6B  systems  operator  hope  to  cope  with  the  unexpected 
events  and  confusion  which  takes  place  during  a strike  mission. 

At  this  point  in  the  planning  process,  the  operator  is 
asked  if  he  wants  to  consider  another  mission  or  strike  route. 

i 
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If  he  is  satisfied  with  the  solution  he  has  obtained,  he 
simply  answers  "no"  to  these  questions  and  the  program  stops. 

D.  STANDOFF  MISSION 

A Standoff  jamming  mission  is  normally  one  in  which  the 
EA- 6B  stays  in  a particular  fixed  orbit  while  the  strike  group 
ingresses  to  a target.  During  this  time,  the  EA-6B  concen- 
trates its  jamming  primarily  on  EW/ACQ  radars  to  mask  the 
route  and  composition  of  the  strike  group.  EA- 6B  jamming 
effectiveness  against  narrow  beam  missile  control  radars  is 
less  than  completely  effective  when  not  in  alignment  with  the 
strike  group  and  emitter.  During  this  time,  the  EA-6B  will 
normally  proceed  to  another  optimum  jamming  point  and  fly  a 
fixed  orbit.  From  this  orbit,  jamming  will  be  provided  to 
effectively  cover  EW/ACQ  radars  during  the  egress  portion  of 
the  strike  route. 

This  program  allows  the  operator  a chance  to  rapidly  view 
the  effects  of  his  jamming  from  several  different  standoff 
points  during  the  planning  session.  In  viewing  different 
standoff  points,  he  should  be  able  to  chose  the  position  or 
positions  which  will  provide  the  desired  jamming  protection 
for  ingress  and  egress  of  the  strike  group. 

Once  the  mission  has  been  selected  and  strike  route 
entered,  the  program  asks  for  the  latitude  and  longitude  of 
the  standoff  point.  It  will  normally  suffice  to  enter  the 
midpoint  of  the  first  standoff  orbit.  The  system  will  now 
display  the  strike  route,  EOB  emitter  sites  and  detection 
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envelopes,  and  the  EA-6B  standoff  point.  As  with  the  Escort 
mission,  the  operator  has  the  ability  to  filter  the  emitters 
displayed  by  class.  With  the  Standoff  mission  only,  the 
planner  may  also  elect  to  see  the  emitter  detection  envelopes 
depressed  by  his  jamming  as  in  Figs.  5 and  6.  This  feature 
enables  him  to  rapidly  assess  the  effectiveness  of  jamming 
from  several  different  locations,  leading  to  the  selection 
of  one  or  more  standoff  points  for  the  mission. 

Once  the  planner  is  satisfied  with  the  display  he  has 
constructed,  as  before,  he  may  transfer  the  display  information 
to  a chart  via  the  plotter.  The  navigation  solution  and  jam- 
ming parameters  for  use  in  flight,  as  seen  in  Fig.  11,  may  now 
be  printed,  concluding  the  planning  of  this  particular  mission. 

The  success  of  the  Standoff  mission  lies  primarily  in  the 
selection  of  the  optimum  standoff  points.  With  the  aid  of 
this  system,  the  planner  is  able  to  rapidly  view  many  different 
standoff  points,  resulting  in  near  optimum  positioning  of  the 
EA-6B. 

E.  MODIFIED  ESCORT  MISSION 

A Modified  Escort  mission  is  one  in  which  the  EA- 6B  accom- 
panies the  strike  group  until  the  point  where  the  strike  group 
must  penetrate  a AAA  or  SAM  envelope.  At  this  point,  the 
EA-6B  takes  up  a course  outside  of  the  weapons  envelopes.  In 
an  environment  of  sophisticated  home-on-jam  (HOJ)  missiles,  a 
modified  escort  role  seems  a likely  possibility  for  jamming 
aircraft. 
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Once  the  mission  has  been  selected  and  the  strike  route 
entered,  as  before,  the  operator  may  enter  the  EA-6B  route. 
However,  it  is  envisioned  that  normally  the  planner  will  first 
view  the  EOB  listing  and  the  display  of  EOB  emitter  locations, 
emitter  detection  envelopes,  and  strike  route.  Based  on  this 
information,  he  can  now  intelligently  chose  and  enter  the 
EA-6B  route. 

When  this  is  accomplished,  the  EA- 6B  route  is  added  to 
the  visual  display  as  in  Fig.  7.  As  before,  the  operator  may 
have  his  chart  marked  with  this  information  or  consider  another 
strike  route  or  routes.  A navigation  solution  and  Time  Sce- 
nario are  again  available  at  this  point.  Figure  8 shows  the 
navigation  solution  containing  both  strike  group  and  EA- 6B 
information.  The  Time  Scenario  for  the  Modified  Escort  mission 


is  seen  in  Fig.  10.  It  considers  both  strike  group  and  EA-6B 
position,  and  lists  emitters  accordingly.  As  with  all  other 
missions,  at  this  point  in  the  program  the  operator  may  select 
a new  mission  profile,  change  the  route,  or  merely  terminate 
the  planning  session. 

F.  MODIFIED  ESCORT  MISSION  WITH  ROUTE  OPTIMIZATION 

Results  obtained  in  this  section  of  the  program  are  likely 
to  be  very  similar  to  those  of  the  Modified  Escort  section. 

In  this  section,  however,  the  computer  makes  some  important 
decisions  for  the  planner. 

Once  the  mission  is  selected,  the  strike  route  of  flight, 
including  turnpoints,  speeds  on  each  leg  of  the  route,  and 
local  magnetic  variation,  must  be  entered.  As  in  all  other 
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sections,  the  EOB  listing  is  now  created  utilizing  the  inter- 
face with  the  ship's  main  computer,  the  Emitter  Parameter 
Library,  and  operator  inputs.  This  listing  is  available  to 
the  operator  for  viewing  and  printout  at  this  point  in  the 
program. 

The  planner  is  next  asked  to  enter  the  minimum  and  maximum 
EA-6B  airspeeds  he  wishes  the  computer  to  use  in  the  optimiza- 
tion routine.  With  the  input  of  this  information,  the  program 
automatically  enters  the  routine  and  computes  an  optimized 
EA-6B  route  based  on  the  calculations  and  constraints  outlined 
in  the  System  Description  section. 

When  the  route  is  completed,  the  system  plots  the  optimized 
EA-6B  route,  strike  route,  terminal  threat  radar  positions  and 
detection  ranges  on  the  graphics  terminal.  The  operator  has 
the  option  of  adding  EW/ACQ  radars  to  the  display  before  he 
has  the  display  plotted  on  his  chart.  At  this  point  in  the 
program,  the  planner  may  change  the  strike  route  and  re- 
initiate the  optimization  routine,  change  his  mission,  or 
continue  with  what  he  has  done. 

Assuming  the  planner  was  satisfied  with  the  display,  follow- 
ing the  preparation  of  the  chart,  he  may  list  and  print  a navi- 
gation solution  and  Time  Scenario  identical  to  those  of  the 
Modified  Escort  mission  (Figs.  8 and  10).  At  this  point,  the 
operator  is  again  given  the  opportunity  to  change  his  route, 
mission,  or  terminate  the  planning  session. 
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In  the  dense  emitter  environment  of  many  areas  of  the  i 

world,  computer  assistance  in  the  selection  of  an  optimum  I 

jamming  route  is  essential.  Use  of  the  Modified  Escort  mis- 

i 

sion  program  section  in  such  an  environment  would  be  extremely 
time  consuming,  requiring  the  planner  to  view  many  different 
EA-6B  routes  before  being  able  to  intelligently  decide  on  a 
route.  With  the  route  optimization  section  implemented,  under 
such  conditions  planning  time  would  be  reduced  and  far  more 
accurate  results  would  be  achieved. 
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Figure  - 11  Jamming  parameters  for  a standoff  mission  from 
ORBIT  POINT  INDICATED. 
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Figure  - 12  Typical  printout  of  EA-6B  pertinent  information 

BY  weapon  platform. 
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VI.  FUTURE  CONSIDERATIONS 


A.  INTRODUCTION 

Due  to  equipment  restrictions,  many  features  that  would 
be  nice  to  have  in  a mission  planning  program  are  not  included 
in  this  system.  Without  great  modifications  to  the  existing 
program,  all  items  discussed  in  this  section  could  be  incor- 
porated, expanding  the  features  and  versatility  of  this  system. 

B.  HARDWARE 

If  the  WANG  2200  computer  system  is  to  continue  to  be  the 
basis  for  EA-6B  mission  planning,  procurement  and  utilization 
of  the  newly  developed  WANG  Interactive  Graphics  Terminal  is 
advisable.  Not  only  are  interface  problems,  now  present  with 
the  TEKTRONIX  4012,  avoided  with  this  display  system,  but  the 
speed  in  creating  necessary  displays  is  substantially  increased. 

The  WANG  computers  used  onboard  carriers  and  the  one  used 
for  development  of  this  program  have  16k  of  CPU  memory.  With 
only  slight  hardware  modification  and  minimal  cost,  this  memory 
can  be  increased  to  64k.  If  this  mission  planning  program 
is  to  be  expanded  and  improved,  it  is  vital  to  have  the  in- 
creased core  size  available. 

Should  a dedicated  computer  system  become  available  for 
EA-6B  mission  planning,  consideration  should  be  given  to  all 
manufacturers  of  computing  systems  with  similar  capabilities 
to  the  WANG  2200.  Included  in  this  category  are  the  HEWLETT 
PACKARD  9845  and  the  TEKTRONIX  4051  computer  systems. 
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Each  system  has  specific  advantages  which  must  be  fully 
investigated  before  any  choice  is  made. 

C.  SOFTWARE 

The  Emitter  Parameter  Library  and  ship's  computer  inter- 
face could  be  modified  to  produce  an  EOB  listing  with  infor- 
mation on  specific  weapon  platforms.  Information  on  ships 
and  aircraft  of  interest  could  be  displayed  and  printed,  as 
in  Fig.  12.  This  procedure  would  not  involve  a significant 
increase  in  computer  calculations. 

E.xpansion  of  the  optimization  aspect  of  this  program  seems 
inevitable.  In  spite  of  the  limited  CPU  memory  size  of  the 
WANG  machine,  a simple  optimization  of  the  Standoff  mission 
is  possible.  In  this  routine,  jamming  effectiveness  calcula- 
tions could  be  used  to  determine  optimum  standoff  positions 
for  strike  group  protection.  Many  sections  of  programming 
currently  in  the  system  could  be  used  in  this  scheme. 

Programming  to  determine  the  strike  route  with  the  minimum 
amount  of  exposure  to  enemy  radars  could  easily  be  added  to 
the  existing  system.  A procedure  which  examines  several  pos- 
sible strike  routes  and  calculates  exposure  times  and  trends 
could  be  used  to  implement  this  feature  into  the  program. 
Combining  this  routine  with  jamming  route  optimization  could 
lead  to  a complete  automation  of  the  mission  planning  process. 
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APPENDIX  A 


EA-6d  MISSION  PLANNING  AND  ROUTE  OPTIMIZATION  PRGGRA^^ 
PROGRAMMED  IN  WANG  2200  BASIC  LANGUAGE 


PART  one  "MAINl" 

13  Rc-»  MAIN  PROGRAM  FOR  EA63  MISSION  PLANNING 
20  DIM  Xl(lO)  ,Y1( 10), Sl(20) ,S2(20) ,36(20) ,01(9) ,S3(9) ,T3(9)  , 
N2(9) ,M3 (9) ,21 (9),T4(120) ,04(2  J) ,T2(9),D4(9> ,N1(8) ,T8$( 20 
) 12,T1(30) 

30  DU  T7S(30)36,Y2(9)  ,X2(9),M2(9),S5(9),?2(9)  ,B(20),G1(30), 
Pl(33)  ,G2(33),T6(9)  ,T5(9),D2(9),03(9),N3(9),fn(9),T9$(30, 
11)4,29(20) ,Z8(20) ,B1(1C) 

40  REM  STK  GROUP  CROSS  SECTION  = C 
53  C=9. 

60  C9=l. 

70  REM  CMFLG  FaCTOP  USED  TN  BURNTHRU 
83  YB^SCO. 

90  X9=300. 

100  R'EK  SET  LIMITS  TO  BEGIN  GEOGRAPHIC  SEARCH  LIMIT 
110  PRINT  "POP  ALL  CUESTIONS:  ENTER  1 FOR  YES,  0 =CR  NO." 
120  I )PUT  "03  YOL  WISH  TO  CC'JSIDER  A PARTICULAR  MSN  PROFILE 
AT  THIS  TIM£?",M7 
130  IF  y7=0  THEN  150 

140  INPUT  "WHICH  MISSION?  1==SC3RT,  2=MC0  ESCORT,  3=STAN00F 
F " , M 7 

150  I.4PUT  "jj  YOL  HAVE  A STRIKE  F.OUTE  AT  THIS  TiyE?",L8 
160  IF  L3=l  THEN  313 

170  N=2:REM  .mO  ROLTE  YET  USE  APPROX.  PCINT 

180  INPUT  "ENTER  APPROX,  STARTING  LAT , LONG" , Y I ( 1 ) , XI ( 1 ) 

193  INPUT  "ENTER  TARGET  LAT , L ONG" , Y1 ( 2 ) , X 1 ( 2 ) 

200  FOR  1=1  TC  2 
210  Z3(I)=X1(I) 

223  Z9( I)=Y1( I) 

230  NEXT  I 
240  Zi=2 

25J  GOSL0  •200:REM  CONVERT  OEG  AND  MIN  TO  DEG  AND  TENTHS 
260  FOR.  1 = 1 TO  2 
270  XI ( I ) =Z8(  I ) 

280  Y1 ( I )=Z9(  I ) 

290  NEXT  I 
303  GOTO  510 

310  INPUT  "ENTER  NUMBER  OF  TURNPTS.'SN 
320  M=N-1 

333  «=0R  1 = 1 TO  N:REM  READ  IN  TURNPT  . LAT, LONG 
340  PRINT  "ENTER  LAT, LONG  OF  TURNPT.";! 

350  HPUT  Y1(I),X1(I) 

3o0  Z8( I)=X1( I) 

370  Z9(I)=Yl(I) 

330  NEXT  I 
390  Z1=N 

400  GJSL3  •200;REM  CONVERT  OcG  AND  MIN  TO  DEG  AND  TENTHS 
410  FOR  1=1  TO  N 
420  XI ( I )=Z8(  I ) 

430  Y1 ( I )=Z9(  1 ) 

443  NEXT  I 

450  INPUT  "ENTER  MAG  VAR.,  + FOR  wEST,  - FOR  EAST",V 
460  FOR  1=1  TO  M ;REM  ENTER  TAS  EACH  LEG 
470  P-tlNT  "ENTER  TAS  FCR  EACH  LEG.";I 
480  INPUT  11(1) 

490  S3(  I) =I1(  I )/6 3.  :PEN  NM  PER  MINUTE 

50C  NEXT  I 

510  FOR  1=1  TO  N 

52)  Z9(I)=X1(  I) 

530  NEXT  I 
540  Z1=N 
553  GOSUB  '215 
560  F»Z2 


570  Gisua  *215 
580  F9=Z2 
59J  FOR  1=1  TO  N 
600  Z9(I)=YUI) 

610  N=XT  I 
620  Z1=N 
630  GOSUB  *210 
640  T=Z2 
650  GJSL3  *215 
660  B9=Z2 
670  T=T+2- 
680  B9=B9-2. 

690  F=F+2. 

700  F9=F9-2. 

900  FOR  1=1  TO  N 
910  Z3(I)=Sl(n 
920  Z9{I)=S2(n 
930  NEXT  I 
940  Z1=K 

950  G3S'J3  ‘200  : REM  CONVERT  UE3  A,^D  MIN  TO  OEG  ANO  t=nTpS 
960  FOR  1=1  TO  K 

970  Sl(l)=za(l) 

980  S2(  I )=Z9(  I ) 

990  NEXT  I 

1000  IF  L3=0  then  1340 
1010  IF  M‘'  = 0 THEN  1340 
1020  ON  M/  GOTO  1340,1030,1250 

1030  INPUT  '*00  YOU  HAVE  A MOO  ESCORT  ROUTE  TO  ENTER  N0W?«,M6 
1040  IF  ,vi6=0  THEN  1340 

1050  INPUT  "ENTER  NUMBER  OF  TURNPOINTS  IN  MOD  FSCOR’’  ROUTE. 

",M9 

1060  FOR  !=1  TO  M9 

1 07  0 PRINT  "ENTER  LAT  , LONG  FOR  TURNPOIM."  , I 
1030  INPUT  Y2(  I ) ,X2(T  ) 

1090  Z8(1)=X2(I ) 

IlOO  Z9(  n=Y2(i  ) 

1110  NEXT  I 
1120  Z1=M9 

113  0 GGEUB  *200;  REM  CONVERT  DEG  ANO  MIN  Tj  qEG  ANO  TENTHS 
114C  FOR  I=l  TO  M9 
1150  x2(n=Z3(n 
lloC  Y2(I »=Z9(I ) 

1170  NEXT  I 

1180  M8=M9-1 

1190  FOR  1=1  TO  M8 

1200  PRINT  "ENTER  TAS  FOR  LEG.",! 

1210  INPUT  M2II» 

1220  35(n=M2(I  )/60. 

1230  NEXT  I 
1240  GOTO  1340 

1250  INPUT  ”00  YOU  HAVE  A STANOJFF  PT . TC  CONSICEF  YET?",L5 
1260  IF  L5=0  THEM  1340 

1270  INPUT  "ENTER  LAT.lCNG  OF  STANDOFF  OJINT. ", S8, S9 
1280  Z8(n=S9 
1290  Z9(I)=S3 
1300  Zl=l 
1310  GOSUB  »2O0 
132C  S9=Z8(I» 

1330  S8=Z9(I) 

1340  LOAD  DC  F "MAIN2”  1341,6160 

6170  INPUT  "ARE  YOU  THROUGH  PL ANNI NG?" , L 

6180  IF  L»0  THEN  6550 

6190  INPUT  "DO  YCU  WISH  TO  CONSIDER  A DIFFERENT  MISSION 
PROFILE?"tL 
6200  IF  L*0  THEN  6220 

6210  INPUT  "WHICH  MISSION  DO  YOU  WISH  TO  CONSIDER?  1=ESC0RT 
2»M0D  ESCORT,  3=STAND0FF.",M7 

6220  INPUT  "DO  YOU  WISH  TO  CONSIDER  ANCTHER  STRIKE  ROUTE?", 
6220  INPUT  "00  YOU  WISH  TO  CONSIDER  ANCTHER  STRK  RTE?",L9 
6230  IF  L9«0  THEN  6440 

6240  INPUT  "ENTER  NUMBER  OF  TURNPOI  NTS  N 
6250  M»iN-l 


REM  CONVERT  DEG  AND  MIN  TO  OEG  ANO  TENTHS 


^ A 


62b  3 
6270 
6280 
6290 
630C 

631  J 

632  C 
6330 
634  3 
6350 
6360 
637C 
6330 
639  3 
6400 
6410 

642  3 

643  0 
6440 
645  3 

6460 

6470 

6480 

6493 

6500 

6510 

6523 

653  0 
6540 

654  1 
6550 
656  0 


65  7 3 
6530 
6590 
6633 
6610 
6620 
663  3 
6640 
6650 
6660 
6670 

66  3 3 
6690 
6700 
6713 
6720 
6730 
6743 


6750 

6760 

6773 

6780 

6790 
6803 
6810 
6820 
683  3 
6840 
6850 
6860 
68  70 
688  0 
689  3 


FCR  1=1  TO  N:  REM  REAC  IN  TURNPQINT  LAT,LONG 
PRINT  '•ENTER  LAT.LCNG  OF  TJRNPG I NT  , " ; I 
INPUT  Y1(I),X1(I) 

23(I)=Xl(n 
29(n=Yi(n 
NEXT  I 
21=N 

G0SJ6  '200:  REM  CONVERT  05G  AND  MIN  TQ  DEG  AND  TENTHS 
FOR  I=»l  TO  N 
X1(II=28(I ) 

Y1  ( n=Z9(  I ) 

NEXT  I 

FOR  1=1  TO  M:  REM  ENTER  TAS  EACH  LEG 
PRINT  "ENTER  TAS  FOR  EACH  LEG.";  I 
INPUT  IKI) 

S3(n  = Il(I  1/609  : REM  N.M.  PER  MINUTE 

NEXT  I 
L8  = l 

ON  M7  GOTO  6540f 1030,6450 

INPUT  "DO  YOU  kvANT  TC  CONSIDER  ANOTHER  STANDOFF  POINT? 
",L5 

IF  L5=0  THEN  6173 

INPUT  "ENTER  LAT,LONG  OF  STANDOFF  PGI NT . " , S8 , S9 
Z8(  I ) = S9 
Z9 (I )=S3 
Zl  = l 

G0SU8  *200 
S9=Z3( I) 

S3=Z9( I ) 

V7=999 
LOAD  DC 
STCP 

DEFFN'246 


REM  CONVERT  DEG  AND  MIN  TO  DEG  AND  TENTHS 


F "MAINZ" 


REM  RADN  THIS  SUBROUTINE  CONVERTS  TRUE 
HOG  FROM  DEGREES  TC  RADIANS  FOR  USE  IN  COMPUTING  THE 
distance  increment  Or  LAT,LONG  IN  THE  TIME  SCENARIO. 
Zl=2.  = ^P  1/363. 

IF  N2( I )GE.O  THEN  6610 
ri=(450-N2(n  )*Z1 
RETURN 

IF  N2(n  L = . 90  THEN  6630 
GOTO  6590 
H={93-N2(  I n*Zl 
RETURN 

OEFFN'248  : REM  SAME  AS  '246 
Z1=2.*¥P 1/360. 

IF  N3(JJ  G6.  0 THEN  6700 
H=  (453-N3{4)  I^Zl 
RETURN 

IF  N3(J»  L£.  90  THEN  6720 
GCTC  6683 
H=(90-N3(J) )*Z1 
RETURN 

OEFrN'225  : REM  TD  THIS  SUBROUTINE  COMPUTES  'I’HE  TIME 
AND  DISTANCE  AROUND  A PARTICULAR  RCUTE,  BOTH  TOTAL  ANC 
INCIVIDUAL  LEG  VALUES. 

Z2  = 0. 

Z1=0. 

FOR  1=1  TO  M ; REM  MUST  CALCULATE  A SCALEDOWN  FACTOR, Z3 
, BECAUSE  LAT  NE . TO  LONG  IN  DISTANCE. 

Z3=1.0294-.0023*A3S{ ( Yl( I+1)+Y1( 1)1/2. )- . 000 1* ( ( Y1 ( I+l) 
♦Yl{I))/2.)  2 
Z4*(X1(I+1)-X1( I ) )*Z3 
Z5=Y1(  I + 1)-Y1( I ) 

01(I)*S0R(Z4  2+Z5  2) 

D1  (1  ) = 01 (I )=60. 

Z2»Z2+01 ( I ) 

04.tl)*Z2 

T3(  n»01(  I )/S3(  I ) 

Z1»Z1+T3(1 ) 

T2(  I)*Z1 
NEXT  I 
RETURN 


^7 


690  0 
69  10 
692C 
6930 
6940 

6950 
696  0 
6970 
6980 
6990 
7000 
701C 
7020 
703  0 
7040 
7050 
7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

714  0 
7150 
7160 
7170 
7130 
7190 
7200 


7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 
7370 
7380 
7390 
7400 
7410 
7420 
743  0 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 


IS  USEC  TO  FIND 


USEC  TC  FIND 


OEFFN'235  : ftcM  TC  SAME  AS  '225 

Z1  = 0. 

Z2  = 0. 

FOR  1*1  TO  M8  : REM  CALCULATE  SOF 

Z3  = 1.0294-.0C23’*ABS(  ( Y2(  I + l)  +Y2  ( I ) ) /2  . ) - .000  1#  ( ( Y2  ( I + l ) 
♦ Y2(  1 1 1/2.  I 2 
Z4*(X2(I+1»-X2(  I » )«Z3 
Z5*Y2 ( I+l)-Y2( I) 

02(I»=SQR(Z4  2+Z5  2) 

02(1  )*D2(  1 >’*‘60. 

Z2*Z2+D2 (I) 

D3(I)=Z2 

T6(I)*D2(I)/S5( I ) 

ZL*Z1+T6(I ) 

T5(n*Zl 
NEXT  I 
RETURN 

OEFFN'210  : REM  MAX  THIS  SUBROUTINE 
THE  MAX  VALUE  OF  A LIST  PASSED  TO  IT. 

Z2=Z9( I I 
FOR  1=2  TO  Z1 
IF  Z9(I.'  LE.  Z2  THEN  7110 
Z2=Z9( n 
NEXT  I 
RETURN 

DEFFN'215  : REM  MIN  THIS  SUBROUTINE  IS 
THE  MIN  VALUE  OF  A LIST  PASSED  TO  IT. 

Z2=Z9(I> 

FOP  1=2  TO  Zl 
IF  Z9(T)  G£.  Z2 
Z2=Z9( I ) 

NEXT  I 
RETURN 

OEFFN'220  : REM 
'1AX  VALUES  OF  X 
ON  GRAPH  ALWAYS 
Z1=ABS(X6-X9  » 

Z2=A6S(Y9-Y3 ) 

IF  Zl  GE.  Z2  THEN 
Z3=X9+(Zl/2, » 

X9=Z3-(Z2/2. ) 

X6=Z3+(Z2/2. ) 

GOTC  7310 
Z4=Y8+(Z2/2. ) 

Y6=Z4-(Zl/2. ) 

Y9  = Z4+(Zl/2.  ) 

RETURN 

DEFFN'230  : REM  HDG  THIS  SUBROUTINE 
MAG  HOG  FOR  A ROUTE  OF  FLIGHT. 

21=180. /OPI 

FOR  1=1  TO  M ; REM  MUST  CALCULATE  SOF  (Z2) 

NCT  ECUAL  TC  LONG  IN  DIST. 

Z2  = 1.0294-.0023*ABS((Yll I + ll+Yl ( I ) 1/2 . » -.000 !♦ ( ( Y 1 ( 1 + 1 1 

♦Yl(I)  Ml,  » 2 

Z3  = lXl(I+U-Xl(n)*Z2 

Z4=Y1(I  + 1)-YI(I) 

Z5=ARCTAN(Z4/Z3) 

IF  Z3  GE.  0.  THEN  7420 

Z5  = (1.5«ll»PI-Z5)*Zl 

GOTO  7430 

Z5*(#PI/2.-Z5)*Zl 

N2(I)*Z5+.5 

M3(  I ) = N2  (I  » + V 

Z6=M3( 1) 

IF  Z6  GE.  0.  THEN  7490 
M3(  I)*M3(n  + 260. 

GOTC  7510 

IF  Z6  LT.  36C.  THEN  7510 
M3(I)=M3 (1 )-360. 

NEXT  I 
RETURN 

DEFFN'24C  : REM  CALCULATE 


THEN  7180 


SCALE  THIS  SUBRCUTNE  TAKES  THE  MIN  AND 
AND  Y CODRDSt  AND  ADJUSTS  TO  MAKE  PLCT 
SQUARE. 


7280 


COMPUTES  TRUE  AND 


SINCE  LAT 


SOF  (Z2) 


ft 


754C 

Zl  = 180./i»PI 

755  J 

FOR  1=1  TO  M8  : REV  CALCULATE  SDF  (Z2». 

756C 

Z2  = 1.0294-.0023=«A8S((Y2(  I + l)  +Y2(  I ) >/2.  » - .000  1*  ( ( Y2  ( I + l ) 

♦ Y2(I)  1/2. » 2 

7570 

Z3  = (X2(I+1)-X2(I))*Z2 

7580 

Z4=Y2(I+1)-Y2(I) 

7590 

Z5=ARCTAN(Z4/Z3) 

760C 

IF  Z3  GE.  0.  THEN  7630 

7610 

Z5=(1.5*#PI-Z5)*Z1 

762  0 

GOIG  7640 

7630 

Z5  = (>>PI/2.-Z5)*Zl 

764  0 

N3(n=Z5  + .5 

7650 

Mlt  I )=i\l3  (I  ) + V 

7660 

Z6=M1( I) 

7670 

IF  Z6  GE.  0.  THEN  7700 

7680 

M1(I»=M1(I )+360. 

7690 

GQIC  7720 

7700 

IF  Z6  LT.  360.  THEN  7720 

7710 

Ml(I)=Ml(I)-260. 

7720 

(NEXT  I 

7730 

RETURN 

7740 

DEFFN'200  : REM  LL  THIS  SUBROUTINE  CONVERTS 
MIN  TO  DEG  AND  TENTHS. 

DEG 

ANC 

7750 

FOR  1=1  TO  Z2 

7760 

Z2=Z8( I) 

7770 

Z3  = Z8(n-Z2 

7780 

Z3=Z3/.6 

779  0 

Z8(I)=Z2+Z3 

7800 

Z4=Z9(  I ) 

7810 

Z5=Z9 (I )-Z4 

7820 

Z5=Z5/.6 

7830 

Z9(I )=Z4+Z5 

7840 

NEXT  I 

7850 

RETURN 

7860 

OEFFN'205  : REM  RLL  THIS  SUBROUTINE  CONVERTS 
TENTHS  TO  DEG  AND  MINS. 

CEG 

ANC 

787  0 

FCR  1=1  TO  Z1 

7880 

Z2=Z8( I ) 

7890 

Z3=Z8(I ) -Z2 

7900 

Z3=Z3#.6 

7910 

Z8m  = Z2+Z3 

7920 

Z4  = Z9( I)  , 

7930 

Z5=Z9(I ) -Z4 

7940 

Z5=Z5*.6 

7950 

Z9(I)=Z5+Z4 

7960 

(NEXT  I 

7970 

RETURN 

39 


r 


1341 

1342 
1350 
1360 
155C 

156C 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
lo40 
1650 
1660 
1670 
1680 
169  0 
1700 
1710 
1720 
1730 
1740 
175  0 
1760 
1770 
1780 
1790 
18J0 
1810 
1320 
1830 
1340 

185  0 
1860 
1870 
1880 


1890 
19J0 
1910 
1920 
1930 
1940 
195  0 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
206  0 
2070 
2080 
2090 
2100 
2110 


PART  ThO  ”MAIN2'' 

IF  V7=999  THEN  2420 

INPUT  "OG  YCU  WISH  TO  USE  SHIP'S  EGB?"»L 
IF  L=0  THEN  1550 

REM  NEXT  SECTION  USED  FOR  OBTAINING  SHIP'S  EC6 
INPUT  "DO  YOU  WISH  TO  ENTER  SITES  IN  ADDITION  TO  CR 
INSTEAD  CF  FfiCM  SHIP’S  EQB?'',L 
IF  L=0  THEN  1640 

INPUT  "HOW  MANY  SITES  ARE  YOU  ENTERING?", J 

N9=K+J 

K1*K+1 

FOR  I=K1  TO  N9 

INPUT  "ENTER  LAT,LONG  TYPE  NO . " , S2 ( I ) . S 1N2 ) ,S6 ( I ) 

NEXT  I 
K = N9 

INPUT  "DO  YCU  WISH  A LISTING  DF  THE  E03?",L 
IF  L=0  THEN  2420 
FOR  1=1  TO  K 
Z8(I)  = S1U) 

Z9(I)=S2(i) 

NEXT  I 
Z1  = K 

3CSUB  •205:R£M  RECONVERT  DEG  AND  TENTHS  TO  DEG  AND  MIN, 
FCR  1=1  TC  K 
31(I)=Z3(n 
S2m  = Z9(I  ) 

NEXT  I 

PRINTUSING  1770 

f i=ALL,  2=EW/ACQ,  3=TEPM  THREAT 

INPUT  "CHOOSE  TYPE  OF  EMITTERS  TC  USE.",L 

ON  L GOTO  1600,2030,2200 

FOR  1=1  TO  K ; REM  THIS  LISTS  ALL  EMITTERS 
J = S6( I I 

IF  12  NE.  0 THEN  1850 
PRINTUSING  1840 

I MSN  BAND  LIST  RNGE  FLO  FHI  PRFl  PRFl  PRF2  PRF2  AUTC 
DEGR  PRCT 
12=12+1 

PRINT  "SITE";I;TAB(8)  ;"L/L";S2(  I SKI) 

RRINT  TAe(2  );T8S( J) ;TAB(17)  ;T7$(J) 

PRINT  T9S(J,1);"  ";Bi(j);"  ";T9$(j,2);"  ";Tl(j);"  «; 
T9$(J,3);"  ";T9$(J,4);"  ";T9$(J,5);"  ";T9$(J,6);" 
T9$(J,7)  ";T9«(J,8);"  ";T9$(J,9);"  " ; T9$ ( J , 10 ) ; " 

T91( J,ll ) 

PRINT 

Z8(1)  = SKI) 

Z9(I)=S2(I) 

IF  12  NE.  3 THEN  1940 
12  = 0 
NEXT  I 
Z1=K 

GCSUB  *200  : REM  CONVERT  DEG  AND  MIN  TO  DEG  ANC  TENTHS. 

FOR  1=1  TO  K 

SKI)=Z8(I) 

S2(I)=29(I) 

NEXT  I 
GCTC  2420 

REM  NEXT  SECTION  FCR  EW/ACQ  ONLY 
FOR  1=1  TO  K 
J=S6(I ) 

IF  J 6T.  10  THEN  2170 
IF  12  NE.  0 THEN  2080 
PRINTUSING  1840 
12*12+1 

PRINT  "SITE  "il;TAB(8);"L/L  " ;S2  ( I ) ;S l( I ) ; 

PRINT  TAB (2) ;f8$(J);TAB(17);T7$(J) 

PRINT  T9$(J,1);"  ";B1(J);"  ";T9$(J,2);"  ";T1(J);" 
T9$(J,3l;"  ";T9$(J,4);"  ";T9$(J,5);"  ";T9$(j,6l;" 
T9$<J,7);"  ";T9$(j,8);"  ";T9$u,9);"  ";T9$( j,io) 


2120 
213  J 
2140 
2150 
2160 
217C 

2171 

2172 

2173 

2174 

2175 

2176 
2180 
2190 
2200 
2210 
2220 
2230 
224C 
2250 
226  0 
2270 
2230 
2290 


2300 
2310 
2320 
2330 
2340 
235C 
2360 
2370 
2380 
239  0 
2400 
2410 
242  0 
2430 
2440 
2450 

246  0 
247C 

248  0 
249C 
2500 
251C 
2520 
253  0 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
264  0 
2650 
2660 
2670 
2680 
2690 
2700 
2710 


T9I( Jtll ) 
PRINT 

Z8(2)sSl(I ) 
zs(n=S2(i) 
IF  12  NE.  3 
12  = 0 
NE>TI 
Z1=K 

GQSUB  '200  i 


THEN  2170 


GQSUB  '200  : REM  CONVERT  OEG  AND  MIN  TO  DEG  ANC  TENTJ 

FOR  1=1  TO  K 

S1(I)=Z8(I) 

S2(  I )=Z9( I ) 

N£>TI 
GOTO  2420 

REM  THIS  SECTION  LISTS  TERM  THREATS  ONLY. 

FOR  1=1  TO  K 
J=S6(I J 

IF  0 LE.  10  THEN  2350 
IF  J GT.  20  THEN  2350 
IF  J NE.  0 THEN  2260 
PRINTUSING  1840 
12  = 12+1 

PRINT  "SITE  ";i;TAe(8);"L/L  " ; S2  ( I ) ; SI ( I ) ; 

PRINT  TA3(2  );T3S( J) ;TAB(17»  ;T7$( J) 

PRINT  T9$(J,1);"  ";B1(J|;"  ";T9$(J,2);"  ";Tl(J);"  "i 
T9$(J,3»;"  ";T9S(J»4);"  ";T9$(j,5);"  ";T9$( j»6);" 
T9$(0f7);"  ";T9$(J,8);"  ";T9$(J»5);"  ";T9$(0 ,10) "i 
T9I(  0,11  ) 

PRINT 

Z8(I)=S1(I) 

ZS(I)=S2(I ) 

IF  12  NE.  3 THEN  2350 
12  = 0 
N6>T  I 
Z1=K 

G0SU3  *200:  REM  CONVERT  OEG  AND  MIN  TO  OEG  ANC  TENTH* 

FOR  1=1  TO  K 

S1(I)=Z8(I) 

S2iI)=Z9(I) 

REM  NEXT  SECTION  TO  DISPLAY  INFO 

INPUT  "DO  YCU  WISH  TO  DISPLAY  ECB  AND  ROUTE!", L7 
IF  L7=0  THEN  3900 
PRINTUSING  1770 

INPUT  "CHOOSE  TYPE  OF  EMITTER  ENVELOPES  FOR  DISPLAY. 
L6 

IF  M7  NE.  3 THEN  2490 

INPUT  "DO  YCU  WANT  TO  SEE  THE  ENVELOPES  DEPRESSED  S'! 
OAMMING?", 09 

REM  THIS  SECTION  MAKES  GEOGRAPHIC  WINDOW. 

FCR  1*1  TO  N 
Z9(I)=X1(I) 

NEXT  I 
Zl*iN 

GOSUB  *210 
X6»Z2 

GOSUB  *215 
X9»Z2 

FOR  1=1  TO  K 
Z9(1)=S1 (I) 

NEXT  I 
Z1*K 

GCSUB  '210 

IF  X6  GT.  Z2  THEN  2640 

X6«Z2 

X6*X6+.2 

G0SL8  *215 

IF  X9  LT.  Z2  THEN  2630 

X9»Z2 

X9-X9-.2 

FOR  1=2  TO  N 

Z9(I)*Y1(I) 

NEXT  1 


MIN  TO  DEG  ANC  TENTHS. 


LISTS  TERM  THREATS  ONLY. 


2350 

2350 


THEN  2350 


REM  CONVERT  OEG 


TENTHS  . 


DISPLAY  INFO 
TO  DISPLAY  ECB 


ROUTE!", L7 


EMITTER  ENVELOPES  FOR  DISPLAY.", 


ENVELOPES  DEPRESSED 


•215 


THEN  2640 


THEN  2630 


2720  2l=N 
2730  GCSUB  *210 
2740  Y9*Z2 
275C  GOSUB  *215 
276J  Y8»Z2 
277C  FOS  I*l  TO  K 
2780  Z9(n«S2(I) 

2790  NEXT  I 

2800  Z1»K 

2810  GOSUB  *210 

282C  IF  y9  GT.  Z2  THEN  2840 

2830  Y9»Z2 

284J  Y9=Y9+.2 

2850  GOSUB  *215 

2860  IF  Y8  LT.  Z2  THEN  2880 

237J  Y8*Z2 

2880  Y8»Y8-.2 

2890  GOSUB  *220 

2900  NEXT  SECTION  RESERVED  FOR  PLOTTER  CODE 
3900  LOAD  DC  F "MAIN3"  1341,6160 


PART  THREE  "MAINa” 


3901 
3913 
3920 
3930 
394  3 

3950 
39o0 
3970 
3930 
399  3 
400C 
4010 
4323 
4030 
404  0 
4350 
4060 
4070 
4080 
4090 
4130 
4110 
4120 


4130 
4143 
4150 
4160 
t»l70 
4180 
4190 
4200 
4210 
422  0 
4230 
4240 
4250 
4260 
4270 

4280 
4293 
4300 
4310 
432  3 
4330 
4340 
4353 
4360 
4370 
4380 
4390 
4430 
4410 
4420 
443  0 
4440 


4450 

ttn 

4480 

4490 

4500 


IF  L8*0  THEN  6170  : REM  iN<0  ROUTE  PREVIOUSLY  PICKED. 

IF  M7*0  THEN  6443  : REM  NO  MISSION  PREVIOUSLY  PICKED. 


GOSUB  *225  : REM  CALCULATE  TIME  ANC 
GQSUB  *230  : REM  CALCULATE  HEADINGS 
INPUT  "DO  YOU  WANT  A ,NAV  SOLUTION? 


OIST  AROLNO  ROUTE. 
AROUND  RCUTE. 

IT'S  NECESSARY  FOR 


A TIME  SCENARIO  "tL 
IF  L*0  THEN  6170 
PRINTUSING  3970 

t STRIKE  GROUP  NAVIGATION  SOLUTION 
PRINT 

PRINTUSING  4333 

t LEG  OIST  TIME  TH  MH  TAS  TOTT  TCTD 
FOR  1*1  TO  N 
23(n*XI  (1) 

Z9(I)*Y1 (I) 

NEXT  I 
2l  = N 

GOSUB  '205;REM  RECONVERT  DEG  AND  TENTHS  TO  DEG  AND  MINS 

FOR  I*l  TO  N 

XI(I)*Z8( II 

Y1(II*Z3(I  I 

NEXT  I 

FOR  1*1  TO  M 

PRINT  TA8(2 );I ;TAB(7)  ;D1(  I I ;TAB(  13) ;T3( I) ;TAB(20)  ; 
N2(II  ;TA8<25);M3(  I );TAB<29>;  IKI  I ;TABI35)  ;T2I  I );TAe  142) 
:04( I ) 

PRINT  "FROM  ";yi( I );"/";xi(l  I ;"Ta  ";yi( I + i) ; "/";xi(I+l) 

PRINT 

NEXT  I 

FOR  1*1  TO  N 
Zd(I)*Xl (1) 

Z9(n*Yl  (11 
NEXT  I 
Z1=N 

GOSUB  *200  : REM  CONVERT  OcG  AND  MIN  TO  DEG  AND  TENTHS. 

FCR  1=1  TO  N 

Xl(  I)*Z8(I  I 

Yl(I)*Z9(n 

NEXT  I 

ON  M7  GOTO  4590,4280.5261 

REM  HAVE  TO  CALCULATE  A NAVIGATION  SOLUTION  FOR  THE 

EA6B  IF  MOO  ESCORT  MISSION,  THEN  TIME  SCENARIO 

GOSUB  '235 

GCSUB  *243 

FOR  1*1  TO  M7 

Z8(  n*X2(  I ) 

29(I)*Y2(I) 

NEXT  I 
Z1»M7 

GOSUB  •205:REM  RECONVERT  OcG  AND  TENTHS  TO  DEG  AND  MINS 
FOR  1*1  TO  M7 
X2(I)«Z8(I I 
Y2(I)*Z9( I) 

NEXTI 

PRINT  « MCD  ESCORT  r4AViGATI0N  SOLUTION." 

PRINT 

PRINTUSING  4000 
FOR  1*1  TO  M8 

PRINT  TAB(2  );I  ;TA8(7I  ;02(  I)  ;TAB(12l;T6(n  ;TAB(20I  ; 
N3(I) :TAB(25  );M1 ( I ) ;T AB ( 29 1 ; M2 ( I ) (TAB (35) ;T5 ( I ) ( TA6(42) 

^RlU*  "FROM  ";y2II);"/";x2(I)  to  ";Y2(I  + 1) 

X2(I4>1) 

PRINT 

?0R^I«1  T9  M9 
Z6(I)«X2(:) 

Z9(I)»Y2(I) 


\ 

Oi 


4510 
45k0 
453  J 
4540 
4550 
4560 
457C 
45d0 
459C 
4600 
4610 
4620 
463  0 
4640 
4650 
4660 
4670 


4900 

4910 

4920 

4930 


4940 
495  0 
4960 
4970 
498  0 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
506  0 


5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 


NEXT  I 
Z1=M9 

GCS'JB  *200 
FOR  1*1  TO  MS 
X2(I)*Z8(n 
Y2(II=Z9( I J 
NEXT  I 
REM  NEXT  SECTION 
INPLT 
IF  L*0 
PRINT 
INPUT 
PRINT 
FCR  1=1 


REM  CONVERT  DEG  AND  MlN  TO  DEG  AND  TENTHS, 


BEGINS  TIME  SCENARIO. 

A TIME  SCENARIC?''tL 


•'DO  YOU  WANT 
THEN  6170 
"HOW  MANY  BANDS  DO  YOU 
"NO  CCKBOS,  5/6  COUNTS 
"ENETR  BANDS,  ONE  AT  A 
TO  N8 


WANT  TO  CONSIDER?" 
AS  2.",N8 
TIME." 


468  0 
4690 
4700 


4710 
4720 
4730 
4740 
475  0 
4760 
4770 
4780 
4790 
4800 
4810 
,4320 
483  0 
4840 
4350 
486  0 
4370 
4880 
4890 


INPUT  Nidi 
NEXTI 

PRINT  "WHICH  TYPE  OF  EMITTERS  ARE  YOU  INTERESTED  IN 
FCR  THOSE  BANOS?" 

INPUT  "1=ALL,  2*EW/ACC  ONLY,  3=TERM  THREAT  CNLY.",N7 
REM  PRINT  OUT  HEADINGS  FOR  TIME  SCENARIO. 

PRINT  " TIME  PRES  POS  TYPE  EC3  RNGE  ERG  AUTO 
DEGR  PERCT" 

REM  SET  INITIAL  CONDITIONS  FOR  THE  TIME  SOLUTION. 

IF  M7=2  THEN  5260 
S7*0. 

P8=X1( I ) 

P9*Y1(I) 

Z8(  H=P3 
Z9(I )=P9 
Zl*l 

GOSUB  •205iREM  RECONVERT  DEG  AND  TENTHS  TO  DEG  AND  MINS 

pa=Z8n  I 


P9=Z9(II 
PRINT  S7;P9 
Z8(  I)=P8 
Z9d)*P9 
Zl*l 

GOSUB  *200 
P8=Z8( I ) 
P9*Z9dI 
GOSUB  *245 


;P8 


; REM  CCNVERT  DEG  AND  MINS  TO  DEG  AND  TENTHS 


REM, 


NOW  PROCEED  ARCUNC  THE  ROUTE  AT 

MINUTE  INTERVALS. 

1*1 

S7*S7^1. 

09*S3( I I /60. 

IF  T2(n  GT.  S7  THEN  5070  : REM  NCT  TRUE  MEANS 
LE.  ONE  MINUTE  FROM  LAST  COMPUTED  POSITION. 
P7*S7-T2(I) 

I-I+l  : REM  IS  THIS  THE  LAST  TURNPCINT? 

IF  I»N  THEN  5030 
P8*xi(n 
P9*Y1( I) 

GOSUB  *246  : REM  CCNVERT  DEG  TO  RACNS. 
P8*P8+P7wS3(  n/60.wC0S(H) 

P9*P9+P7*S3(  D/BO.fSINlH) 


ONE 


TP  WAS 


REM  IT  WAS  THE  LAST  TURNPOINT. 


GOTO  5100 
P8*X1(N) 

PS»V1(N) 

S7*T2(M) 

GOTO  5100  i 
TURNPOINT. 

GOSUB  *246 
P8*P8+09*C0Slh) 

P9»P9+D9*SIN(HI 
Z8d  )«P8 
Z9dl*P9 
Zl»l 

GOSUB  •205:REM  RECONVERT  DEG  AND  TENTHS  TQ  DEG  AND  MINS 


! REM  NEXT  SECTION  MEANS  HAVE  NOT  GCNE  PAST 
JUST  INCREMENT  FOR  THIS  LEG  AND  CONTINUE. 
REM  CCNVERT  DEG  TO  RACNS. 


pe*Z6(i) 

-Z9a» 


P9 
PRINT 
Z8(l) 


S7  ;P9;"/";P8 

>pa 


/lA 


r 

p 


51d0  Z9(l)=P9 
5190  21=1 
5200  GCSUB  *200 
5210  pa=za(i) 

522C  P9=Z9(1) 

5233  G3SU8  '245 

524C  IF  S7  GE.  T2(M»  THEN  6170 
5250  GOTO  4910 
5263  LOAD  DC  F 

5261  Ve=999 

5262  LOAD  DC  F "MAINA” 


REM  CONVERT  OEG  AND  PINS  TO  DEG  AND  TENTHS 


> 

I ; 


PART  FCUR 


526  3 
526^ 
5270 
52ac 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
539C 
5400 
5410 
5420 
5430 
544  0 
5450 
5460 
5470 
5480 
5490 
550C 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5530 
5590 
560  0 
56lC 
5620 
5630 
5640 
5650 
5660 
56  70 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
579  0 
5800 
5810 
5320 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 


REM  CONVERT  05G  AND  MINS  TO  DEG  AND  TENTHS 


IF  V8=999  THEN  5290 
S7*0. 

P8=X2(l) 

P9=Y2( 1) 

X7=Xl(l) 

Y6=Yl(l) 

Z8(  1)*P8 
Z9(1»*P9 
Zl-1 

GOSUB  'ZOSxREM  RECONVERT  DEG  AND  TENTHS  TO  CEG  AND  MINS 

P&=:Z8(1I 

P9»Z9( 1) 

PRINT  S7;P9  ;"/*';P8 
Z8(1)=P8 
Z9(l)=P9 
Zl  = l 

GOSUB  *200 
P8=Zd<l) 

P9=Z9(ll 
GCSUB  *245 
1*1 
J = 1 

S7=S7+1. 

D9*S3(  n/60. 

08*S5( I) /60. 

IF  T2(I)  GT.  S7  THEN  5630 
P7=S7-T2( I I 
1*1+1. 

IF  I=N  THEN  5600 
X7*X1(I I 
Y6*Yll I) 

GOSLB  *246  : REM  CONVERT  THDG  TO  RACN. 

X7*X7+P7«S3 ( I)/60.*C0S(H) 

Y6*Y6+P7*S3( I)/60.*SIN(H) 

GOTO  5660 
X7*X1(N) 

Y6*Y1( N) 

SOTO  5660 

GCSUB  *246  : REM  CONVERT  THDG  TO  RAON, 

X7»X7+D9*C0S(H) 

Y6*Y6+D9*SIN(H) 

IF  T5(J)  GT.  S7  THEN  579) 

P7*S7-T5( J) 

J»J  + 1 

IF  J*M9  THEN  5760 
P8*X2( J) 

P9»Y2( J) 

GOSUB  *248  : REM  CONVERT  THDG  TO  RACN, 

P6*P8+P7*S5(  J» /60.>I«COS(HJ 
P9*P9+P7*S5( J)/60.*SiN(H) 

GOTO  5820 
P8aX2IM9) 

P9*Y2(M9» 

GOTO  5820 

GCSUB  *248  i REM  CONVERT  THDG  TO  RADN. 

P8«P8+08*CaS(Hl 

P9aP9+08*SIN(H) 

Z8a)«P8 

ZSh)*P9 

Zl»l 

GOSUB  •205:REM  RECONVERT  DEG  AND  TENTHS  TO  DEG  AND  MINS 
P8*Z8( 1) 

P9«Z9(1» 

PRINT  S7iP9;«/'*;P8 
GOSUB  *245 

IF  S7  GT.  T5(M8I  THEN  6170 
GOTO  5470 

INPUT  "DO  YOU  WANT  A PRINTOUT  OF  JAMMING  PARAMETERS 


5930 
594  J 
5950 
5960 
597J 
5930 
599  C 
6000 

oOIO 
602C 
6030 
6 04  0 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
612  0 
613C 
6140 
615  0 
6160 


TO  CONSIDER?" 


FOR  THIS  STANDOFF  PCINT?",L 
IF  L=0  then  6170 

PRINT  "HOW  I^ANY  BANOS  DC  YOU  WANT  TO  CONSIDER?" 

INPUT  "NO  CCMBOS,  5/6  COUNTS  AS  2."fN8 
PRINT  "ENTER  BANDS*  ONE  AT  A TIME." 

FCR  1=1  TO  NS 
INPUT  NKI) 

NE)(T  I 

PRINT  "WHICH  TYPE  CF  EMITTERS  ARE  YOU  INTERESTED  IN 
FOR  THOSE  BANCS?" 

INPUT  "1=ALL»  2=EW/ACC  ONLY,  3"TERy  THREAT  CNLY.",N7 

PRINT  "STANDOFF  L/L  TYPE  SOB  RNGE  ERG  AUTO  CEGR  PERCT" 

2e(l)=S9 

Z9(i)=sa 

Zl  = l 

GOSUB  *205lREM  RECCNVERT  DEG  AND  TENTHS  TO  DEG  AND  HINS 
S9=Z8( 1) 


INTERESTED 


S8=Z9( 1) 
PRINT  SB; 
Z8(1)=S9 
Z9(1)=S8 
Zl  = l 

GCSU8  *200 
S9=Z8(1) 
S8»Z9( 1) 
GOSUB  *245 


"/";S9 


CONVERT 


MINS 


TENTHS 
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